RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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DDDDDDDD II111 GGGGGGGG IIIJII TTTTTTTTTT 

DDDDDDDD eeeeel GGGGGGGG  JIIII]  TTTTTTTTTT 

DD DD Il 6G II TT 

DD DD Il GG Il TT | 

DD DD II 6G II TT 

DD DD II 6G 1] TT 

DD DD I] GG II TT 

DD DD I] GG II TT | 

DD DD II GG GGGGGG Il TT 

oD DD Il GG GGGGGG Il TT 

Lo DD II 6G GG 1] TT pe 

DL DD Il 6G GG I] TT rod 

DDLDDDDD III GGGGGG III TT ee 

DDDODDDD III] GGGGGG III] TT SUDO: 

RRRRRRRR = EEEEEEEEEE = aaaaaa 

RRRRRRRP  —s EEEEEEEEEE = Qaaaaa 

RR RR EE aa aa 

RR RR EE aa aa 

RR RR EE aa aa 

RR RR EE aa aa 

RRRRRRRR = EEEEEEEE = aa 

RRRRRRRR  EEEEEEEE aa 

RR RR EE QQ aa aa 

RR RR EE aa ad aa 

RR RR EE aa. 

RR RR EE ag 0s «a 

RR RR EEEEEEEEEE 000 0G 

RR RR EEEEEEEEEE  Q0GQ ad 
! 
| 
| 
| 
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ARPS SSLSSI£L£CL ICES ETT TTT e cece icc cic T TTT Teri iti iti iii ft 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie are SOF TWARE S FURNISHED UNDER A LICENSE AND MAY BE USED AND COP 
:* ONLY IN ee ANCE WITH THE TERMS OF SUCH iit a | we 

:* INCLUSION 0 THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTH 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO 

:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HER 

'* TRANSFERRED. 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC 
:* compokat ita, NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEN 
'e 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


E 
T 


Lee REAR RRR EAE EEE 
' 


'e4¢ 


FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


ABSTRACT: oa 
Macro to test if a character is a digit. 


ENVIRONMENT: Transportable BLISS 


AUTHOR: Rich Friday 
CREATION DATE: 1978 
MODIFIED BY: 
002 KAD00002 Keith Dawson 07-Mar-1983 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS (library. 


ee ee ee 


CRO 
DIGIT(KHAR) = 
(KHAR oe ZC'O" and KHAR LEQ %C'9') 


; End of DIGIT.REQ 
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